home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tpnet5.arc / PASNETA.ASM < prev    next >
Assembly Source File  |  1991-04-28  |  31KB  |  1,903 lines
  1. Page 80,132
  2. ;*******************************************************
  3. ;*                               *
  4. ;* VERSION: 1.0                        *
  5. ;*                               *
  6. ;* VERSION: 1.1 modified for TP 5.0 & TASM 1.0           *
  7. ;*          03/04/90 Donald M. DeLapp 307-674-6841     *
  8. ;*                               *
  9. ;*                               *
  10. ;* MODULE NAME: PASNET.ASM    Language Interface     *
  11. ;*                               *
  12. ;* DESCRIPTION:  NetWare interface drivers           *                         *
  13. ;*                               *
  14. ;*        Borland Turbo Pascal interface           *
  15. ;*                               *
  16. ;* INPUTS:  Refer to individual procedures.           *
  17. ;*                               *
  18. ;*                               *
  19. ;* RETURNS (OUTPUTS)  Refer to individual procedures.  *
  20. ;*                               *
  21. ;*                               *
  22. ;*******************************************************
  23.  
  24. title    Turbo Pascal - NetWare Interface Module
  25.  
  26. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  27. ;+                               +
  28. ;+ For the following Turbo Pascal interface see        +
  29. ;+ the Borland Turbo Tutor manual and the           +
  30. ;+ Reference Manual                       +
  31. ;+                               +
  32. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++
  33.  
  34. ;cseg    segment byte public 'cseg'
  35. cseg    segment byte public
  36.     assume    cs:cseg
  37.  
  38. public    xtndopn, setattr, eojstat, PRLH_Log, PRLH_Rel, PRLH_Clr, PRLF_Log
  39. public    PRLF_Rel, PRLF_Clr, PRLS_Lck, PRLS_Rel, PRLS_Clr, OpenSem, ExamSem
  40. public    WaitSem, SigSem, ClosSem, setlck, Bakouts, btrans, etrans, exclog
  41. public    exclcks, exculkf, exculks, excclrf, excclrs, reclog, reclck, reculk
  42. public    reculks, recclr, recclrs, eoj, sysout, volstat
  43. public    locdrv, wsid, errmode, bcsmode, ctlspl, splreq, pipreq, dpath, syslog
  44. public    fattr, updfcb, cpyfile, nettod, clsmode, drvmap, retshl, asclog
  45. public    asculkf, ascclrf, Get_PSN, Get_STA, SetServ, ModServ
  46.  
  47.  
  48.  
  49. ;     vector table - starts at 0000, with each ensuing call
  50. ;    offset by 3 (the jmp instruction and an offset address)
  51. ;    jmp    near ptr xtndopn
  52. ;    jmp    near ptr setattr
  53. ;    jmp    near ptr eojstat
  54. ;    jmp    near ptr PRLH_Log
  55. ;    jmp    near ptr PRLH_Rel
  56. ;    jmp    near ptr PRLH_Clr
  57. ;    jmp    near ptr PRLF_Log
  58. ;    jmp    near ptr PRLF_Rel
  59. ;    jmp    near ptr PRLF_Clr
  60. ;    jmp    near ptr PRLS_Lck
  61. ;    jmp    near ptr PRLS_Rel
  62. ;    jmp    near ptr PRLS_Clr
  63. ;    jmp    near ptr OpenSem
  64. ;    jmp    near ptr ExamSem
  65. ;    jmp    near ptr WaitSem
  66. ;    jmp    near ptr SigSem
  67. ;    jmp    near ptr ClosSem
  68. ;    jmp    near ptr setlck
  69. ;    jmp    near ptr Bakouts
  70. ;    jmp    near ptr btrans
  71. ;    jmp    near ptr etrans
  72. ;    jmp    near ptr exclog
  73. ;    jmp    near ptr exclcks
  74. ;    jmp    near ptr exculkf
  75. ;    jmp    near ptr exculks
  76. ;    jmp    near ptr excclrf
  77. ;    jmp    near ptr excclrs
  78. ;    jmp    near ptr reclog
  79. ;    jmp    near ptr reclck
  80. ;    jmp    near ptr reculk
  81. ;    jmp    near ptr reculks
  82. ;    jmp    near ptr recclr
  83. ;    jmp    near ptr recclrs
  84. ;    jmp    near ptr eoj
  85. ;    jmp    near ptr sysout
  86. ;    jmp    near ptr volstat
  87. ;    jmp    near ptr locdrv
  88. ;    jmp    near ptr wsid
  89. ;    jmp    near ptr errmode
  90. ;    jmp    near ptr bcsmode
  91. ;    jmp    near ptr ctlspl
  92. ;    jmp    near ptr splreq
  93. ;    jmp    near ptr pipreq
  94. ;    jmp    near ptr dpath
  95. ;    jmp    near ptr syslog
  96. ;    jmp    near ptr fattr
  97. ;    jmp    near ptr updfcb
  98. ;    jmp    near ptr cpyfile
  99. ;    jmp    near ptr nettod
  100. ;    jmp    near ptr clsmode
  101. ;    jmp    near ptr drvmap
  102. ;    jmp    near ptr retshl
  103. ;    jmp    near ptr asclog
  104. ;    jmp    near ptr asculkf
  105. ;    jmp    near ptr ascclrf
  106. ;    jmp    near ptr Get_PSN
  107. ;    jmp    near ptr Get_STA
  108. ;    jmp    near ptr SetServ
  109. ;    jmp    near ptr ModServ
  110.  
  111.  
  112.  
  113. ;--------------------------------
  114. ; Extended Open a File func(61) (3DH)
  115. ;
  116. ; var
  117. ;    Mode, Handle, RetCode : Integer;
  118. ;    Filename          : String[n];
  119. ;
  120. ; RetCode := xtndopn(Mode, Handle, Filename);
  121. ;
  122.  
  123. xtndopn proc    far
  124.     push    bp
  125.     mov    bp,sp
  126.     push    ds
  127. ;    lds    si,[bp+12]      ; put the mode in ax
  128.     lds    si,[bp+14]      ; put the mode in ax
  129.     mov    ax,[si]
  130.     mov    ah,03Dh         ; put the function in ah
  131. ;    lds    dx,[bp+4]       ;ptr to ASCIIZ string
  132.     lds    dx,[bp+6]       ;ptr to ASCIIZ string
  133.     inc    dx            ;add 1 to get to the beginning of the string
  134.     int    21h
  135.     jnc    noerr
  136.     jmp    quit
  137. noerr:
  138. ;    lds    di,[bp+8]       ;put the handle into the variable
  139.     lds    di,[bp+10]       ;put the handle into the variable
  140.     mov    [di],ax          ;if there is no error and
  141.     xor    ax,ax             ;return a 0
  142. quit:
  143.     pop    ds
  144.     pop    bp
  145.     ret    14
  146. xtndopn endp
  147.  
  148.  
  149.  
  150.  
  151. ;--------------------------------
  152. ; Get or Set File Attributes(handle) func(67) (43H)
  153. ;
  154. ; var
  155. ;    Func, Attribute, ErrCode : Integer;
  156. ;    Filename         : String[n];
  157. ;
  158. ;ErrCode := setattr(Func, Attribute, Filename);
  159. ;
  160.  
  161. setattr proc    far
  162.     push    bp
  163.     mov    bp,sp
  164.     push    ds
  165. ;    lds    si,[bp+12]      ; put the subfunction in ax
  166.     lds    si,[bp+14]      ; put the subfunction in ax
  167.     mov    ax,[si]
  168.     mov    ah,043h         ; put the function in ah
  169. ;    lds    dx,[bp+4]       ;ptr to var desc block for ASCIIZ string
  170.     lds    dx,[bp+6]       ;ptr to var desc block for ASCIIZ string
  171.     inc    dx            ;add 1 to get the address of the string
  172. ;    lds    si,[bp+8]       ;put the attribute to set in cx
  173.     lds    si,[bp+10]       ;put the attribute to set in cx
  174.     mov    cx,[si]
  175.     int    21h
  176.     jnc    okay
  177.     mov    ah,00h
  178.     jmp    getout
  179. okay:
  180. ;    lds    di,[bp+8]       ;put the returned attributes in the
  181.     lds    di,[bp+10]       ;put the returned attributes in the
  182.     mov    [di],cx         ;variable if there is no error
  183.     xor    ax,ax            ;and return a 0
  184. getout:
  185.     pop    ds
  186.     pop    bp
  187.     ret    14
  188. setattr endp
  189.  
  190.  
  191.  
  192.  
  193. ;--------------------------------
  194. ; End of Job Flag Status func(187) (BBH)
  195. ;
  196. ; var
  197. ;    Flag : Integer;
  198. ;
  199. ;ErrCode := eojstat(Flag);
  200. ;
  201.  
  202. eojstat proc    far
  203.     push    bp
  204.     mov    bp,sp
  205.     push    ds
  206. ;    lds    si,[bp+4]   ; put the flag in ax
  207.     lds    si,[bp+6]   ; put the flag in ax
  208.     mov    ax,[si]
  209.     mov    ah,0BBh     ; put the function in ah
  210.     int    21h
  211.     mov    ah,0
  212. ;    lds    di,[bp+4]
  213.     lds    di,[bp+6]
  214.     mov    [di],ax
  215.     pop    ds
  216.     pop    bp
  217.     ret    6
  218. eojstat endp
  219.  
  220.  
  221.  
  222.  
  223. ;------------------------------------------------------------
  224. ;
  225. ; Physical Record Lock: Log Record   BCH
  226. ;
  227. ; var
  228. ;    ErrCode,FileHandle,HiByteOffset,LoByteOffset : Integer
  229. ;    HiLockLen,LoLockLen,Flags,TimeOut         : Integer
  230. ;
  231. ;ErrCode := PRLH_Log(FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
  232. ;             LoLockLen,Flags,TimeOut);
  233. ;
  234.  
  235. PRLH_Log proc    far
  236.     push    bp
  237.     mov    bp,sp
  238.     push    ds
  239. ;    lds    si,[bp+28]        ;FileHandle
  240.     lds    si,[bp+30]        ;FileHandle
  241.     mov    bx,[si]
  242. ;    lds    si,[bp+24]        ;ByteOffset
  243.     lds    si,[bp+26]        ;ByteOffset
  244.     mov    cx,[si]
  245. ;    lds    si,[bp+20]
  246.     lds    si,[bp+22]
  247.     mov    dx,[si]
  248. ;    lds    si,[bp+8]        ;AL = Log Flags
  249.     lds    si,[bp+10]        ;AL = Log Flags
  250.     mov    ax,[si]
  251. ;    lds    si,[bp+16]        ;LockLen
  252.     lds    si,[bp+18]        ;LockLen
  253.     mov    si,[si]
  254. ;    lds    di,[bp+12]
  255.     lds    di,[bp+14]
  256.     mov    di,[di]
  257. ;    lds    bp,[bp+4]        ;time out
  258.     lds    bp,[bp+6]        ;time out
  259.     mov    bp,[bp]
  260.     mov    ah,0BCH
  261.     int    21H
  262.     mov    ah,0            ;0 the high byte of the return
  263.     pop    ds
  264.     pop    bp
  265.     ret    30
  266.  
  267. PRLH_Log endp
  268.  
  269.  
  270.  
  271.  
  272.  
  273. ;-----------------------------------------
  274. ;
  275. ; Physical Record Lock: Release Rec  BDH
  276. ;
  277. ; var
  278. ;    FileHandle,HiByteOffset,LoByteOffset,ErrCode,
  279. ;       HiWordLen,LoWordLen : integer;
  280. ;
  281. ; ErrCode := PRLH_Rel(FileHandle,HiByteOffset,LoByteOffset,HiWordLen,
  282. ;                           LoWordLen:integer);
  283.  
  284.  
  285. PRLH_Rel proc    far
  286.     push    bp
  287.     mov    bp,sp
  288.     push    ds
  289. ;    lds    si,[bp+20]        ;FileHandle
  290.     lds    si,[bp+22]        ;FileHandle
  291.     mov    bx,[si]
  292. ;    lds    si,[bp+16]               ;HiByteOffset
  293.     lds    si,[bp+18]               ;HiByteOffset
  294.     mov    cx,[si]
  295. ;    lds    si,[bp+12]            ;LoByte
  296.     lds    si,[bp+14]            ;LoByte
  297.     mov    dx,[si]
  298. ;     lds     si,[bp+8]             ;HiWordLen
  299.      lds     si,[bp+10]             ;HiWordLen
  300.      mov     si,[si]
  301. ;     lds     di,[bp+4]             ;LoWordLen
  302.      lds     di,[bp+6]             ;LoWordLen
  303.      mov     di,[di]
  304.     mov    ah,0BDH
  305.     int    21H
  306.     mov    ah,0
  307.     pop    ds
  308.     pop    bp
  309.     ret    22
  310. PRLH_Rel endp
  311.  
  312.  
  313.  
  314.  
  315.  
  316. ;------------------------------------------------
  317. ;
  318. ; Physical Record Lock: Release Clr  BEH
  319. ;
  320. ; var
  321. ;    FileHandle,HiByteOffset,LoByteOffset,ErrCode,
  322. ;    HiWordLen,LoWordLen : integer;
  323. ; 
  324. ;  ErrCode := PRLH_Rel(FileHandle,HiByteOffset,LoByteOffset,HiWordLen,
  325. ;                           LoWordLen:integer);
  326. ;
  327.  
  328.  
  329. PRLH_Clr proc    far
  330.     push    bp
  331.     mov    bp,sp
  332.     push    ds
  333. ;    lds    si,[bp+20]        ;FileHandle
  334.     lds    si,[bp+22]        ;FileHandle
  335.     mov    bx,[si]
  336. ;    lds    si,[bp+16]               ;ByteOffset
  337.     lds    si,[bp+18]               ;ByteOffset
  338.     mov    cx,[si]
  339. ;    lds    si,[bp+12]
  340.     lds    si,[bp+14]
  341.     mov    dx,[si]
  342. ;     lds     si,[bp+8]             ;HiWordLen
  343.      lds     si,[bp+10]             ;HiWordLen
  344.      mov     si,[si]
  345. ;     lds     di,[bp+4]             ;LoWordLen
  346.      lds     di,[bp+6]             ;LoWordLen
  347.      mov     di,[di]
  348.     mov    ah,0BEH
  349.     int    21H
  350.     mov    ah,0
  351.     pop    ds
  352.     pop    bp
  353.     ret    22
  354. PRLH_Clr endp
  355.  
  356.  
  357.  
  358.  
  359.  
  360. ;--------------------------------------------------
  361. ;
  362. ; Physical Record Lock: Log Rec FCB BFH
  363. ;
  364. ; var
  365. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  366. ;    HiLockLen,LoLockLen,Flags,TimeOut     : Integer;
  367. ;
  368. ; ErrCode := PRLF_Log(fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,Flags,TimeOut);
  369. ;
  370.  
  371.  
  372. PRLF_Log proc    far
  373.     push    bp
  374.     mov    bp,sp
  375.     push    ds
  376. ;    lds    si,[bp+28]              ;FCB
  377.     lds    si,[bp+30]              ;FCB
  378.     mov    dx,[si]
  379. ;    lds    si,[bp+24]              ;ByteOffset
  380.     lds    si,[bp+26]              ;ByteOffset
  381.     mov    bx,[si]
  382. ;    lds    si,[bp+20]
  383.     lds    si,[bp+22]
  384.     mov    cx,[si]
  385. ;    lds    si,[bp+8]             ;AL = Log Flags
  386.     lds    si,[bp+10]             ;AL = Log Flags
  387.     mov    ax,[si]
  388. ;    lds    si,[bp+12]              ;low lock length
  389.     lds    si,[bp+14]              ;low lock length
  390.     mov    di,[si]
  391. ;    lds    si,[bp+16]              ;hi lock length
  392.     lds    si,[bp+18]              ;hi lock length
  393.     mov    si,[si]
  394. ;    mov    bp,[bp+4]             ;timeout value
  395.     mov    bp,[bp+6]             ;timeout value
  396.     mov    bp,[bp]
  397.     mov    ah,0BFH
  398.     int    21H
  399.     mov    ah,0
  400.     pop    ds
  401.     pop    bp
  402.     ret    28
  403. PRLF_Log endp
  404.  
  405.  
  406.  
  407.  
  408.  
  409. ;--------------------------------------------------
  410. ;
  411. ; Physical Record Lock: Rel Rec FCB C0H
  412. ;
  413. ; var
  414. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  415. ;
  416. ; ErrCode := PRLF_Rel(fcb,HiByteOffset,LoByteOffset);
  417. ;
  418.  
  419.  
  420. PRLF_Rel proc    far
  421.     push    bp
  422.     mov    bp,sp
  423.     push    ds
  424. ;    lds    dx,[bp+12]              ;FCB
  425.     lds    dx,[bp+14]              ;FCB
  426. ;    lds    si,[bp+8]             ;ByteOffset
  427.     lds    si,[bp+10]             ;ByteOffset
  428.     mov    bx,[si]
  429. ;    lds    si,[bp+4]
  430.     lds    si,[bp+6]
  431.     mov    cx,[si]
  432.     mov    ah,0C0H
  433.     int    21H
  434.     mov    ah,0
  435.     pop    ds
  436.     pop    bp
  437.     ret    12
  438. PRLF_Rel endp
  439.  
  440.  
  441.  
  442.  
  443.  
  444. ;-----------------------------------------------
  445. ;
  446. ; Physical Record Lock: Clr Rec FCB C1H
  447. ;
  448. ; var
  449. ;    ErrCode,fcb,HiByteOffset,LoByteOffset : Integer;
  450. ;
  451. ; ErrCode := PRLF_clr(fcb,HiByteOffset,LoByteOffset);
  452. ;
  453.  
  454.  
  455. PRLF_Clr proc    far
  456.     push    bp
  457.     mov    bp,sp
  458.     push    ds
  459. ;    lds    dx,[bp+12]              ;FCB
  460.     lds    dx,[bp+14]              ;FCB
  461. ;    lds    si,[bp+8]             ;ByteOffset
  462.     lds    si,[bp+10]             ;ByteOffset
  463.     mov    bx,[si]
  464. ;    lds    si,[bp+4]
  465.     lds    si,[bp+6]
  466.     mov    cx,[si]
  467.     mov    ah,0C0H
  468.     int    21H
  469.     mov    ah,0
  470.     pop    ds
  471.     pop    bp
  472.     ret    12
  473. PRLF_Clr endp
  474.  
  475.  
  476.  
  477.  
  478.  
  479. ;---------------------------------------------
  480. ;
  481. ; Lock Record Set  C2H
  482. ;
  483. ; var
  484. ;    ErrCode, Flags, TimeOut : Integer;
  485. ;
  486. ; ErrCode := PRLS_Lck(Flags,TimeOut);
  487. ;
  488.  
  489.  
  490. PRLS_Lck proc    far
  491.     push    bp
  492.     mov    bp,sp
  493.     push    ds
  494. ;    lds    si,[bp+8]               ;AL = Lock flag bits
  495.     lds    si,[bp+10]               ;AL = Lock flag bits
  496.     mov    ax,[si]
  497. ;    lds    si,[bp+4]               ;TimeOut Value
  498.     lds    si,[bp+6]               ;TimeOut Value
  499.     mov    bp,[si]
  500.     mov    ah,0C2h
  501.     int    21h
  502.     mov    ah,0
  503.     pop    ds
  504.     pop    bp
  505.     ret    10
  506. PRLS_Lck endp
  507.  
  508.  
  509.  
  510.  
  511.  
  512. ;----------------------------------------------
  513. ;
  514. ; Release Record Set  C3H
  515. ;
  516. ; var
  517. ;    ErrCode : Integer;
  518. ;
  519. ; ErrCode := PRLS_Rel;
  520. ;
  521.  
  522.  
  523. PRLS_Rel proc    far
  524.     mov    ah,0C3h
  525.     int    21h
  526.     mov    ah,0
  527.     ret
  528. PRLS_Rel endp
  529.  
  530.  
  531.  
  532.  
  533.  
  534. ;----------------------------------------------
  535. ;
  536. ; Clear Record Set  C4H
  537. ;
  538. ; var
  539. ;    ErrCode : Integer;
  540. ;
  541. ; errcode := PRLS_Clr;
  542. ;
  543.  
  544.  
  545. PRLS_Clr proc    far
  546.     mov    ah,0C4h
  547.     int    21h
  548.     mov    ah,0
  549.     ret
  550. PRLS_Clr endp
  551.  
  552.  
  553.  
  554.  
  555.  
  556. ;--------------------------------
  557. ; Semaphores func(197) (C5H) subfunction 00h
  558. ;
  559. ; var
  560. ;    RetCode,SemaValu,HiHandle,LoHandle,OpenCnt : Integer;
  561. ;    Sema4 : String[n];
  562. ;
  563. ; RetCode := OpenSem(Sema4,SemaValu,HiHandle,LoHandle,OpenCnt);
  564. ;
  565.  
  566.  
  567. OpenSem proc    far
  568.     push    bp
  569.     mov    bp,sp
  570.     push    ds
  571. ;    lds    dx,[bp+20]      ;ptr to Semaphore string
  572.     lds    dx,[bp+22]      ;ptr to Semaphore string
  573. ;    lds    si,[bp+16]      ;set semaphore value
  574.     lds    si,[bp+18]      ;set semaphore value
  575.     mov    cx,[si]
  576.     mov    ax,0C500h        ;set the function
  577.     int    21h
  578.     mov    bh,00h
  579. ;    lds    di,[bp+4]      ;return the open count
  580.     lds    di,[bp+6]      ;return the open count
  581.     mov    [di],bx
  582. ;    lds    di,[bp+8]      ;return low handle
  583.     lds    di,[bp+10]      ;return low handle
  584.     mov    [di],cx
  585. ;    lds    di,[bp+12]      ;return high handle
  586.     lds    di,[bp+14]      ;return high handle
  587.     mov    [di],dx
  588.     mov    ah,00h
  589.     pop    ds
  590.     pop    bp
  591.     ret    22
  592. OpenSem endp
  593.  
  594.  
  595.  
  596.  
  597.  
  598. ;--------------------------------
  599. ; Semaphores func(197) (C5H) subfunction 01h
  600. ;
  601. ; var
  602. ;    RetCode,HiHandle,LoHandle,SemaValu,OpenCnt : Integer;
  603. ;
  604. ; RetCode := ExamSem(HiHandle,LoHandle,SemaValu,OpenCnt);
  605. ;
  606.  
  607.  
  608. ExamSem proc    far
  609.     push    bp
  610.     mov    bp,sp
  611.     push    ds
  612. ;    lds    si,[bp+16]        ;hi handle
  613.     lds    si,[bp+18]        ;hi handle
  614.     mov    dx,[si]
  615. ;    lds    si,[bp+12]        ;lo handle
  616.     lds    si,[bp+14]        ;lo handle
  617.     mov    cx,[si]
  618.     mov    ax,0C501h        ;set function
  619.     int    21h
  620. ;    lds    di,[bp+8]               ;return semaphore value
  621.     lds    di,[bp+10]               ;return semaphore value
  622.     mov    [di],cx
  623.     mov    dh,00h
  624. ;    lds    di,[bp+4]
  625.     lds    di,[bp+6]
  626.     mov    [di],dx              ;return open count
  627.     mov    ah,00h
  628.     pop    ds
  629.     pop    bp
  630.     ret    16
  631. ExamSem endp
  632.  
  633.  
  634.  
  635.  
  636.  
  637. ;--------------------------------
  638. ; Semaphores func(197) (C5H) subfunction 02h
  639. ;
  640. ; var
  641. ;    RetCode,HiHandle,LoHandle,TimeOut : Integer;
  642. ;
  643. ; RetCode := WaitSem(HiHandle,LoHandle,TimeOut);
  644. ;
  645.  
  646.  
  647. WaitSem proc    far
  648.     push    bp
  649.     mov    bp,sp
  650.     push    ds
  651. ;    lds    si,[bp+12]        ;hi handle
  652.     lds    si,[bp+14]        ;hi handle
  653.     mov    dx,[si]
  654. ;    lds    si,[bp+8]               ;lo handle
  655.     lds    si,[bp+10]               ;lo handle
  656.     mov    cx,[si]
  657. ;    lds    si,[bp+4]
  658.     lds    si,[bp+6]
  659.     mov    bp,[si]              ;set time out
  660.     mov    ax,0C502h        ;set function
  661.     int     21h
  662.     mov    ah,00h
  663.     pop    ds
  664.     pop    bp
  665.     ret    12
  666. WaitSem endp
  667.  
  668.  
  669.  
  670.  
  671.  
  672. ;--------------------------------
  673. ; Semaphores func(197) (C5H) subfunction 03h
  674. ;
  675. ; var
  676. ;    RetCode,HiHandle,LoHandle : Integer;
  677. ;
  678. ; RetCode := SigSem(HiHandle,LoHandle);
  679. ;
  680.  
  681.  
  682. SigSem    proc    far
  683.     push    bp
  684.     mov    bp,sp
  685.     push    ds
  686. ;    lds    si,[bp+8]               ;hi handle
  687.     lds    si,[bp+10]               ;hi handle
  688.     mov    dx,[si]
  689. ;    lds    si,[bp+4]               ;lo handle
  690.     lds    si,[bp+6]               ;lo handle
  691.     mov    cx,[si]
  692.     mov    ax,0C503h        ;set function
  693.     int    21h
  694.     mov    ah,00h
  695.     pop    ds
  696.     pop    bp
  697.     ret    8
  698. SigSem    endp
  699.  
  700.  
  701.  
  702.  
  703.  
  704. ;--------------------------------
  705. ; Semaphores func(197) (C5H) subfunction 04h
  706. ;
  707. ; var
  708. ;    RetCode,HiHandle,LoHandle : Integer;
  709. ;
  710. ; RetCode := ClosSem(HiHandle,LoHandle);
  711. ;
  712.  
  713.  
  714. ClosSem proc    far
  715.     push    bp
  716.     mov    bp,sp
  717.     push    ds
  718. ;    lds    si,[bp+8]               ;hi handle
  719.     lds    si,[bp+10]               ;hi handle
  720.     mov    dx,[si]
  721. ;    lds    si,[bp+4]               ;lo handle
  722.     lds    si,[bp+6]               ;lo handle
  723.     mov    cx,[si]
  724.     mov    ax,0C504h        ;set function
  725.     int    21h
  726.     mov    ah,00h
  727.     pop    ds
  728.     pop    bp
  729.     ret    8
  730. ClosSem endp
  731.  
  732.  
  733.  
  734.  
  735.  
  736. ;--------------------------------
  737. ; Get or Set Lock Mode func(198) (C6H)
  738. ;
  739. ; var
  740. ;    Mode,Func : Integer;
  741. ;
  742. ; Mode := setlck(Func);
  743. ;
  744.  
  745.  
  746. setlck    proc    far
  747.     push    bp
  748.     mov    bp,sp
  749.     push    ds
  750. ;    lds    si,[bp+4]
  751.     lds    si,[bp+6]
  752.     mov    ax,[si]               ;set the subfunction
  753.     mov    ah,0C6h         ;set  the function
  754.     int    21h
  755.     mov    ah,0
  756.     pop    ds
  757.     pop    bp
  758.     ret    4
  759. setlck endp
  760.  
  761.  
  762.  
  763.  
  764.  
  765. ;--------------------------------
  766. ; Transactional Backout func(199) (C7H)
  767. ;
  768. ; var
  769. ;    RetCode, Func : Integer;
  770. ;
  771. ; RetCode := BakOuts(Func);
  772. ;
  773.  
  774.  
  775. BakOuts proc    far
  776.     push    bp
  777.     mov    bp,sp
  778.     push    ds
  779. ;    lds    si,[bp+4]               ;set the subfunction
  780.     lds    si,[bp+6]               ;set the subfunction
  781.     mov    ax,[si]
  782.     mov    ah,0C7h         ;set  the function
  783.     int    21h
  784.     mov    ah,0
  785.     pop    ds
  786.     pop    bp
  787.     ret    4
  788. BakOuts endp
  789.  
  790.  
  791.  
  792.  
  793.  
  794. ;--------------------------------
  795. ; Begin transaction  func(200) (C8H)
  796. ;
  797. ; var
  798. ;    RetCode,Mode : Integer;
  799. ;
  800. ; RetCode := btrans(Mode);
  801. ;
  802.  
  803.  
  804. btrans    proc    far
  805.     mov    ah,0C8h
  806.     call    arg1t
  807.     ret    4
  808. btrans    endp
  809.  
  810.  
  811.  
  812.  
  813.  
  814. ;--------------------------------
  815. ; End Transaction func(201) (C9H)
  816. ;
  817. ; var
  818. ;    RetCode : Integer;
  819. ;
  820. ; RetCode := etrans;
  821. ;
  822.  
  823.  
  824. etrans    proc    far
  825.     mov    ah,0C9H
  826.     int    021h
  827.     mov    ah,00h
  828.     ret
  829. etrans    endp
  830.  
  831.  
  832.  
  833.  
  834.  
  835. ;--------------------------------
  836. ; Exc.log File (202) (CA)
  837. ;
  838. ; var
  839. ;    RetCode, FcbAddr : Integer;
  840. ;
  841. ; RetCode := exclog(FcbAddr);
  842. ;
  843.  
  844. exclog    proc    far
  845.     mov    ah,0CAH
  846.     call    arg1f
  847.     ret    4
  848. exclog    endp
  849.  
  850.  
  851.  
  852.  
  853.  
  854. ;--------------------------------
  855. ; Exc Lock Set    func(203) (CBH)
  856. ;
  857. ; var
  858. ;    RetCode, Mode : Integer;
  859. ;
  860. ; RetCode := exclcks(Mode);
  861. ;
  862.  
  863.  
  864. exclcks proc    far
  865.     mov    ah,0CBH
  866.     call    arg1
  867.     ret    4
  868. exclcks endp
  869.     
  870.  
  871.  
  872.  
  873. ;--------------------------------
  874. ; Exclusive file unlock (204) (CC)
  875. ;
  876. ; var
  877. ;    RetCode, FcbAddr : Integer;
  878. ;
  879. ; RetCode := exculkf(FcbAddr);
  880. ;
  881.  
  882.  
  883. exculkf proc    far
  884.     mov    ah,0CCH
  885.     call    arg1f
  886.     ret    4
  887. exculkf endp
  888.  
  889.  
  890.  
  891.  
  892.  
  893. ;--------------------------------
  894. ; Exclusive Unlock Set (205)(CD)
  895. ;
  896. ; var
  897. ;    RetCode : Integer;
  898. ;
  899. ; RetCode := exculks;
  900. ;
  901.  
  902.  
  903. exculks proc    far
  904.     mov    ah,0CDH
  905.     int    21h
  906.     mov    ah,00h
  907.     ret
  908. exculks endp
  909.  
  910.  
  911.  
  912.     
  913.  
  914. ;--------------------------------
  915. ; Exc Clear file func(206) (CEH)
  916. ;
  917. ; var
  918. ;    RetCode, FcbAddr : Integer;
  919. ;
  920. ; RetCode := excclrf(FcbAddr);
  921. ;
  922.  
  923.  
  924. excclrf proc    far
  925.     mov    ah,0CEH
  926.     call    arg1f
  927.     ret    4
  928. excclrf endp
  929.  
  930.  
  931.  
  932.  
  933.  
  934. ;--------------------------------
  935. ; Exc Clear Set  func(207) (CFH)
  936. ;
  937. ; var
  938. ;    RetCode : Integer;
  939. ;
  940. ; RetCode := excclrs;
  941. ;
  942.  
  943.  
  944. excclrs proc    far
  945.     mov    ah,0CFH
  946.     int    21h
  947.     mov    ah,00h
  948.     ret
  949. excclrs endp
  950.  
  951.  
  952.  
  953.  
  954.  
  955. ;--------------------------------
  956. ; Log Record(s) func(208) (D0H)
  957. ;
  958. ; var
  959. ;    RetCode, Flag, Timeout : Integer ;
  960. ;    RecStr    : String[n];
  961. ;
  962. ; RetCode := reclog(RecStr,Flag,Timeout);
  963. ;
  964.  
  965.  
  966. reclog    proc    far
  967.      push     bp
  968.      mov     bp,sp
  969.      push     ds
  970. ;     lds     si,[bp+8]          ;load flags
  971.      lds     si,[bp+10]          ;load flags
  972.      mov     ax,[si]
  973. ;     lds     si,[bp+4]          ;get timeout
  974.      lds     si,[bp+6]          ;get timeout
  975.      mov     si,[si]
  976. ;     lds     dx,[bp+12]         ;get ptr to string
  977.      lds     dx,[bp+14]         ;get ptr to string
  978.      mov     bp,si              ;move timeout to BP
  979.      mov     ah,0D0h
  980.      int     21h
  981.      mov     ah,0
  982.      pop     ds
  983.      pop     bp
  984.      ret     14
  985. reclog    endp
  986.  
  987.  
  988.  
  989.  
  990.  
  991.  
  992. ;--------------------------------
  993. ; Record Lock func(209) (D1H)
  994. ;
  995. ; var
  996. ;    RetCode, Mode : Integer;
  997. ;
  998. ; RetCode := reclck(Mode);
  999. ;
  1000.  
  1001.  
  1002. reclck    proc    far
  1003.      push     bp
  1004.      mov     bp,sp
  1005.      push     ds
  1006. ;     lds     si,[bp+4]
  1007.      lds     si,[bp+6]
  1008.      mov     bp,[si]
  1009.      mov     ah,0D1h
  1010.      int     21h
  1011.      mov     ah,0
  1012.      pop     ds
  1013.      pop     bp
  1014.      ret     6
  1015. reclck    endp
  1016.  
  1017.  
  1018.  
  1019.  
  1020.  
  1021. ;--------------------------------
  1022. ; Record Unlock func(210) (D2H)
  1023. ;
  1024. ; var
  1025. ;    RetCode   : Integer;
  1026. ;    Semaphore : String[n];
  1027. ;
  1028. ; RetCode := reculk(Semaphore);
  1029. ;
  1030.  
  1031.  
  1032. reculk    proc    far
  1033.     mov    ah,0D2H
  1034.     call    arg1a
  1035.     ret    4
  1036. reculk    endp
  1037.  
  1038.  
  1039.  
  1040.  
  1041.  
  1042. ;--------------------------------
  1043. ; Unlock Record Set func(211) (D3H)
  1044. ;
  1045. ; var
  1046. ;    RetCode : Integer;
  1047. ;
  1048. ; RetCode := reculks;
  1049. ;
  1050.  
  1051.  
  1052. reculks proc    far
  1053.     mov    ah,0D3H
  1054.     int    21h
  1055.     mov    ah,00h
  1056.     ret
  1057. reculks endp
  1058.  
  1059.  
  1060.  
  1061.  
  1062.  
  1063. ;--------------------------------
  1064. ; Record Clear func(212) (D4H)
  1065. ;
  1066. ; var
  1067. ;    RetCode   : Integer;
  1068. ;    Semaphore : String[n];
  1069. ;
  1070. ; RetCode := recclr(Semaphore);
  1071. ;
  1072.  
  1073.  
  1074. recclr    proc    far
  1075.     mov    ah,0D4H
  1076.     call    arg1a
  1077.     ret    4
  1078. recclr    endp
  1079.  
  1080.  
  1081.  
  1082.  
  1083.  
  1084. ;--------------------------------
  1085. ; Clear record set func(213) (D5H)
  1086. ;
  1087. ; var
  1088. ;    RetCode : Integer;
  1089. ;
  1090. ; RetCode := recclrs;
  1091. ;
  1092.  
  1093.  
  1094. recclrs proc    far
  1095.     mov    ah,0D5H
  1096.     int    21h
  1097.     mov    ah,00h
  1098.     ret    4
  1099. recclrs endp
  1100.  
  1101.  
  1102.  
  1103.  
  1104.  
  1105. ;--------------------------------
  1106. ; End of Job  func(214) (D6H)
  1107. ;
  1108. ; var
  1109. ;    RetCode : Integer;
  1110. ;
  1111. ; RetCode := eoj;
  1112. ;
  1113.  
  1114. eoj    proc    far
  1115.     mov    ah,0D6H
  1116.     int    21h
  1117.     mov    ah,00h
  1118.     ret    4
  1119. eoj    endp
  1120.  
  1121.  
  1122.  
  1123.  
  1124.  
  1125. ;--------------------------------
  1126. ; Logout System  func(215) (D7H)
  1127. ;
  1128. ; var
  1129. ;    RetCode : Integer;
  1130. ;
  1131. ; RetCode := sysout;
  1132. ;
  1133.  
  1134.  
  1135. sysout    proc    far
  1136.     mov    ah,0D7H
  1137.     int    21h
  1138.     mov    ah,00h
  1139.     ret    4
  1140. sysout    endp
  1141.  
  1142.  
  1143.  
  1144.  
  1145.  
  1146. ;--------------------------------
  1147. ; Vol Statistics func(218) (DAH)
  1148. ;
  1149. ; var
  1150. ;    RetCode,volume : Integer;
  1151. ;    reply  : String[n];
  1152. ;
  1153. ; RetCode := volstat(volume, reply);
  1154.  
  1155.  
  1156. volstat proc    far
  1157.     mov    ah,0DAh
  1158.     push    bp
  1159.     mov    bp,sp
  1160.     push    ds
  1161.     push    es
  1162. ;    lds    si,[bp+8]     ;addr for the volume number
  1163.     lds    si,[bp+10]     ;addr for the volume number
  1164.     mov    dx,[si]       ;get the volume number
  1165. ;    les    di,[bp+4]     ;ptr to reply buffer
  1166.     les    di,[bp+6]     ;ptr to reply buffer
  1167.     inc    di          ;add 1 to get the address of the string
  1168.     int    21h
  1169.     mov    ah,00h
  1170.     pop    es
  1171.     pop    ds
  1172.     pop    bp
  1173.     ret    8
  1174. volstat endp
  1175.  
  1176.  
  1177.  
  1178.  
  1179.  
  1180. ;--------------------------------
  1181. ; Local Disks  func(219) (DBH)
  1182. ;
  1183. ; var
  1184. ;    NumDisks : Integer;
  1185. ;
  1186. ; NumDisks := locdrv;
  1187. ;
  1188.  
  1189.  
  1190. locdrv    proc    far
  1191.     mov    ah,0DBH
  1192.     int    21h
  1193.     mov    ah,00h
  1194.     ret
  1195. locdrv endp
  1196.  
  1197.  
  1198.  
  1199.  
  1200.  
  1201. ;--------------------------------
  1202. ; WorkStation ID func(220) (DCH)
  1203. ;
  1204. ; note: This routine returns the station number as an integer.
  1205. ;    It can also be returned in ASCII with this call.
  1206. ;
  1207. ; var
  1208. ;    StationNum : Integer;
  1209. ;
  1210. ; StationNum := wsid;
  1211. ;
  1212.  
  1213.  
  1214. wsid   proc    far
  1215.        mov     ah,0DCH
  1216.        int     21h
  1217.        mov     ah,00h
  1218.        ret
  1219. wsid   endp
  1220.  
  1221.  
  1222.  
  1223.  
  1224.  
  1225. ;--------------------------------
  1226. ; Set Error mode func(221) (DDH)
  1227. ;
  1228. ; var
  1229. ;    mode : Integer;
  1230. ;
  1231. ; errmode(mode);
  1232. ;
  1233.  
  1234.  
  1235. errmode proc    far
  1236.     mov    ah,0DDH
  1237.     call    arg1
  1238.     ret    4
  1239. errmode endp
  1240.  
  1241.  
  1242.  
  1243.  
  1244.  
  1245. ;--------------------------------
  1246. ; Broadcast Mode func(222) (DEH)
  1247. ;
  1248. ; var
  1249. ;    mode : Integer;
  1250. ;
  1251. ; bcsmode(mode);
  1252. ;
  1253.  
  1254. bcsmode proc    far
  1255.     mov    ah,0DEH
  1256.     call    arg1
  1257.     ret    4
  1258. bcsmode endp
  1259.  
  1260.  
  1261.  
  1262.  
  1263.  
  1264. ;--------------------------------
  1265. ; Modify LST Device  func(223) (DFH)
  1266. ;
  1267. ; var
  1268. ;    RetCode, Mode : Integer;
  1269. ;
  1270. ; RetCode := ctlspl(Mode);
  1271. ;
  1272.  
  1273. ctlspl    proc    far
  1274.     mov    ah,0DFh
  1275.     call    arg1
  1276.     ret    4
  1277. ctlspl    endp
  1278.  
  1279.  
  1280.  
  1281.  
  1282.  
  1283. ;--------------------------------
  1284. ; Spool Request func(224) (E0H)
  1285. ;
  1286. ; var
  1287. ;    ErrCode         : Integer;
  1288. ;    RequestBlock, Reply : String[n];
  1289. ;
  1290. ; ErrCode := splreq(RequestBlock, Reply);
  1291. ;
  1292.  
  1293. splreq    proc    far
  1294.     mov    ah,0E0h
  1295.     call    req_rep
  1296.     ret    8
  1297. splreq    endp
  1298.  
  1299.  
  1300.  
  1301.  
  1302.  
  1303. ;--------------------------------
  1304. ; Pipe Request func(225) (E1H)
  1305. ;
  1306. ; var
  1307. ;    ErrCode         : Integer;
  1308. ;    RequestBlock, Reply : String[n];
  1309. ;
  1310. ; ErrCode := pipreq(RequestBlock, Reply);
  1311. ;
  1312.  
  1313. pipreq    proc    far
  1314.     mov    ah,0E1h
  1315.     call    req_rep
  1316.     ret    8
  1317. pipreq    endp
  1318.  
  1319.  
  1320.  
  1321.  
  1322.  
  1323. ;--------------------------------
  1324. ; Directory Path func(226) (E2H)
  1325. ;
  1326. ; var
  1327. ;    ErrCode         : Integer;
  1328. ;    RequestBlock, Reply : String[n];
  1329. ;
  1330. ; ErrCode := dpath(RequestBlock, Reply);
  1331. ;
  1332.  
  1333. dpath    proc    far
  1334.     mov    ah,0E2h
  1335.     call    req_rep
  1336.     ret    8
  1337. dpath    endp
  1338.  
  1339.  
  1340.  
  1341.  
  1342.  
  1343. ;--------------------------------
  1344. ; Login system func(227) (E3H)
  1345. ;
  1346. ; var
  1347. ;    ErrCode         : Integer;
  1348. ;    RequestBlock, Reply : String[n];
  1349. ;
  1350. ; ErrCode := syslog(RequestBlock, Reply);
  1351. ;
  1352.  
  1353. syslog    proc    far
  1354.     mov    ah,0E3h
  1355.     call    req_rep
  1356.     ret    8
  1357. syslog    endp
  1358.  
  1359.  
  1360.  
  1361.  
  1362.  
  1363. ;--------------------------------
  1364. ; Set File Attribute func(228) (E4H)
  1365. ;
  1366. ; var
  1367. ;    RetCode, FcbAddr, Attribute : Integer;
  1368. ;
  1369. ; RetCode := fattr(FcbAddr, Attribute);
  1370. ;
  1371.  
  1372. fattr    proc    far
  1373.     push    bp
  1374.     mov    bp,sp
  1375.     push    ds
  1376. ;    lds    si,[bp+4]
  1377.     lds    si,[bp+6]
  1378.     mov    cx,[si]  ;cx=attribute
  1379. ;    lds    dx,[bp+8];dx=address of fcb
  1380.     lds    dx,[bp+10];dx=address of fcb
  1381.     mov    ah,0E4h
  1382.     int    21h
  1383.     mov    ah,0
  1384.     pop    ds
  1385.     pop    bp
  1386.     ret
  1387. fattr    endp
  1388.  
  1389.  
  1390.  
  1391.  
  1392.  
  1393. ;--------------------------------
  1394. ; Update file size func(229) (E5H)
  1395. ;
  1396. ; var
  1397. ;    ErrCode,FcbAddr : Integer;
  1398. ;
  1399. ; ErrCode := updfcb(FcbAddr);
  1400. ;
  1401.  
  1402. updfcb    proc    far
  1403.     mov    ah,0E5H
  1404.     call    arg1f
  1405.     ret    4
  1406. updfcb    endp
  1407.  
  1408.  
  1409.  
  1410.  
  1411.  
  1412. ;--------------------------------
  1413. ; Copy File to File func(230) (E6H)
  1414. ;
  1415. ; var
  1416. ;    RetCode,FcbSource,FcbDest : Integer;
  1417. ;    CountLow, CountHigh      : Integer;
  1418. ;
  1419. ; RetCode := cpyfile(FcbSource, FcbDest, CountLow, CountHigh)
  1420. ;
  1421. ;
  1422.  
  1423. cpyfile proc    far            
  1424.     mov    ah,0E6h
  1425.     push    bp
  1426.     mov    bp,sp
  1427.     push    ds
  1428.     push    es
  1429. ;    lds    si,[bp+4]           ;addr of the high byte cnt
  1430.     lds    si,[bp+6]           ;addr of the high byte cnt
  1431.     mov    dx,[si]             ;dx=high word of byte cnt
  1432. ;    lds    si,[bp+8]           ;addr low word of byte cnt
  1433.     lds    si,[bp+10]           ;addr low word of byte cnt
  1434.     mov    cx,[si]             ;cx=low 16 bits of count
  1435. ;    les    di,[bp+12]          ;address of dest fcb
  1436.     les    di,[bp+14]          ;address of dest fcb
  1437. ;    lds    si,[bp+16]          ;address of the source fcb
  1438.     lds    si,[bp+18]          ;address of the source fcb
  1439.     int    21h
  1440.     mov    ah,0
  1441.     pop    es
  1442.     pop    ds
  1443.     pop    bp
  1444.     ret    16
  1445. cpyfile endp
  1446.  
  1447.  
  1448.  
  1449.  
  1450.  
  1451. ;--------------------------------
  1452. ; get time / date string func(231) (E7H)
  1453. ;
  1454. ; var
  1455. ;    time : String[n];
  1456. ;
  1457. ; nettod(time);
  1458. ;
  1459. ; where time is a string of the form Y M D H M S
  1460. ;
  1461.  
  1462. nettod    proc    far
  1463.     mov    ah,0E7h
  1464.     call    arg1a
  1465.     ret    4
  1466. nettod    endp
  1467.  
  1468.  
  1469.  
  1470.  
  1471.  
  1472. ;--------------------------------
  1473. ; Set Close mode func(232) (E8H)
  1474. ;
  1475. ; var
  1476. ;    mode : Integer;
  1477. ;
  1478. ; clsmode(mode);
  1479. ;
  1480.  
  1481. clsmode proc    far
  1482.     mov    ah,0E8H
  1483.     call    arg1wor
  1484.     ret    4
  1485. clsmode endp
  1486.  
  1487.  
  1488.  
  1489.  
  1490.  
  1491.  
  1492. ;--------------------------------
  1493. ; Shell Base Status func(233) (E9H)
  1494. ;
  1495. ; var
  1496. ;    RetFlags, drive : Integer;
  1497. ;
  1498. ; RetFlags := drvmap(drive);
  1499. ;
  1500.  
  1501. drvmap    proc    far
  1502.     mov    ax,0E900h
  1503.     call    arg1
  1504.     ret    4
  1505. drvmap    endp
  1506.  
  1507.  
  1508.  
  1509.  
  1510.  
  1511.  
  1512. ;--------------------------------
  1513. ; Return Shell Version func(234) (EAH)
  1514. ;
  1515. ; var
  1516. ;    RetCode, Mode : Integer;
  1517. ;    EnvirStr      : String[n];
  1518. ;
  1519. ; RetCode := retshl(EnvirStr, Mode);
  1520. ;
  1521.  
  1522. retshl    proc    far
  1523.     push    bp
  1524.     mov    bp,sp
  1525.     push    ds
  1526.     push    es
  1527. ;    les    di,[bp+8]     ;set es:di to point at the buffer
  1528.     les    di,[bp+10]     ;set es:di to point at the buffer
  1529.     inc    di          ;point di at the start of the data area
  1530. ;    lds    si,[bp+4]     ;put the mode into al
  1531.     lds    si,[bp+6]     ;put the mode into al
  1532.     mov    ax,[si]
  1533.     mov    ah,0EAh
  1534.     int    21h
  1535.     mov    ah,00h
  1536.      pop     es
  1537.      pop     ds
  1538.      pop     bp
  1539.     ret    8
  1540. retshl    endp
  1541.  
  1542.  
  1543.  
  1544.  
  1545.  
  1546. ;--------------------------------
  1547. ; ascii log File (235) (EB)
  1548. ;
  1549. ; var
  1550. ;    RetCode, Flags, TimeOut : Integer;
  1551. ;    Asciiz            : String[n];
  1552. ;
  1553. ; RetCode := asclog(Flags, TimeOut, Asciiz);
  1554. ;
  1555.  
  1556. asclog    proc    far
  1557.     push    bp
  1558.     mov    bp,sp
  1559.     push    ds
  1560. ;    lds    si,[bp+12]
  1561.     lds    si,[bp+14]
  1562.     mov    ax,[si]           ;flags into al
  1563. ;    lds    dx,[bp+4]         ;pointer to the asciiz string
  1564.     lds    dx,[bp+6]         ;pointer to the asciiz string
  1565. ;    lds    si,[bp+8]
  1566.     lds    si,[bp+10]
  1567.     mov    bp,[si]           ;time out into bp
  1568.     mov    ah,0EBH
  1569.     int    21h
  1570.     mov    ah,00h
  1571.      pop     ds
  1572.      pop     bp
  1573.     ret    12
  1574. asclog    endp
  1575.  
  1576.  
  1577.  
  1578.  
  1579.  
  1580. ;--------------------------------
  1581. ; ASCIIZ file unlock (236) (EC)
  1582. ;
  1583. ; var
  1584. ;    RetCode : Integer;
  1585. ;    Asciiz    : String[n];
  1586. ;
  1587. ; RetCode := asculkf(Asciiz);
  1588. ;
  1589.  
  1590. asculkf proc    far
  1591.     mov    ah,0ECH
  1592.     call    arg1a
  1593.     ret    4
  1594. asculkf endp
  1595.  
  1596.  
  1597.  
  1598.  
  1599.  
  1600. ;--------------------------------
  1601. ; ASCIIZ Clear file func(237) (EDH)
  1602. ;
  1603. ; var
  1604. ;    RetCode : Integer;
  1605. ;    Asciiz    : String[n];
  1606. ;
  1607. ; RetCode := ascclrf(Asciiz);
  1608. ;
  1609.  
  1610. ascclrf proc    far
  1611.     mov    ah,0EDH
  1612.     call    arg1a
  1613.     ret    4
  1614. ascclrf endp
  1615.  
  1616.  
  1617.  
  1618.  
  1619.  
  1620. ;--------------------------------------------
  1621. ;
  1622. ; Get Physical Station Number  EEH
  1623. ;
  1624. ; var
  1625. ;    StationNo : Integer;
  1626. ;
  1627. ; StationNo := Get_PSN;
  1628. ;
  1629.  
  1630. Get_PSN proc    far
  1631.  
  1632.     mov    ah,0EEh
  1633.     int    21h
  1634.     mov    ah,0
  1635.     ret
  1636. Get_PSN endp
  1637.  
  1638.  
  1639.  
  1640.  
  1641.  
  1642. ;-----------------------------------------------------
  1643. ;
  1644. ; Get Shell Table Addresses (239) EFH
  1645. ;
  1646. ; var
  1647. ;    Mode,Segment,Offset : Integer;
  1648. ;
  1649. ; Get_STA(Mode,Segment,Offset);
  1650. ;
  1651.  
  1652. Get_STA proc    far
  1653.     push    bp
  1654.     mov    bp,sp
  1655.     push    es
  1656.     push    ds
  1657. ;    mov    si,[bp+12]        ;get the mode
  1658.     mov    si,[bp+14]        ;get the mode
  1659.     mov    ax,[si]
  1660.     mov    ah,0EFh         ;set the function
  1661.     int    21h
  1662. ;    lds    di,[bp+8]        ;store the segment location
  1663.     lds    di,[bp+10]        ;store the segment location
  1664.     mov    [di],es
  1665. ;    lds    di,[bp+4]        ;store the offset location
  1666.     lds    di,[bp+6]        ;store the offset location
  1667.     mov    [di],si
  1668.     pop    ds
  1669.     pop    es
  1670.     pop    bp
  1671.     ret    12
  1672. Get_STA endp
  1673.  
  1674.  
  1675.  
  1676.  
  1677.  
  1678. ;-----------------------------------------------
  1679. ;
  1680. ; Set Preferred File Server (240) F0H
  1681. ;
  1682. ; var
  1683. ;    RetServer, Mode, NewServ : Integer;
  1684. ;
  1685. ; RetServer := SetServ(Mode,NewServ);
  1686. ;
  1687.  
  1688. SetServ proc    far
  1689.     push    bp
  1690.     mov    bp,sp
  1691.     push    ds
  1692. ;    mov    si,[bp+8]        ;get the mode
  1693.     mov    si,[bp+10]        ;get the mode
  1694.     mov    ax,[si]
  1695. ;    mov    di,[bp+4]        ;set the preferred server number
  1696.     mov    di,[bp+6]        ;set the preferred server number
  1697.     mov    dx,[di]
  1698.     mov    ah,0F0h         ;set the function
  1699.     int    21h
  1700.     mov    ah,0
  1701.     pop    ds
  1702.     pop    bp
  1703.     ret    6
  1704. SetServ endp
  1705.  
  1706.  
  1707.  
  1708.  
  1709.  
  1710. ;-----------------------------------------------------------
  1711. ;
  1712. ; Attach/Detach To File Server (241) F1H
  1713. ;
  1714. ; var
  1715. ;    RetCode, Mode, NewServ : Integer;
  1716. ;
  1717. ; RetCode := ModServ(Mode,NewServ);
  1718. ;
  1719.  
  1720. ModServ proc    far
  1721.     push    bp
  1722.     mov    bp,sp
  1723.     push    ds
  1724. ;    lds    si,[bp+8]        ;get the mode
  1725.     lds    si,[bp+10]        ;get the mode
  1726.     mov    ax,[si]
  1727. ;    lds    di,[bp+4]        ;set the preferred server number
  1728.     lds    di,[bp+6]        ;set the preferred server number
  1729.     mov    dx,[di]
  1730.     mov    ah,0F1h         ;set the function
  1731.     int    21h
  1732.     mov    ah,0
  1733.     pop    ds
  1734.     pop    bp
  1735.     ret    6
  1736. ModServ endp
  1737.  
  1738.  
  1739.  
  1740.  
  1741.  
  1742. ;-------------------------------
  1743. ; Place a single integer argument into dx
  1744. ; with a return code
  1745.  
  1746. arg1    proc    near
  1747.     push    bp
  1748.     mov    bp,sp
  1749.     push    ds
  1750. ;    lds    si,[bp+6]
  1751.     lds    si,[bp+8]
  1752.     mov    dx,[si]    ;dx gets the argument
  1753.     int    21h
  1754.     mov    ah,0       ;clear ah for al return code
  1755.     pop    ds
  1756.     pop    bp
  1757.     ret
  1758. arg1    endp
  1759.  
  1760.  
  1761.  
  1762.  
  1763.  
  1764. ;--------------------------------
  1765. ; Place a single integer argument into bp
  1766. ; for use with time outs - with a return code
  1767.  
  1768. arg1t    proc    near
  1769.     push    bp
  1770.     mov    bp,sp
  1771.     push    ds
  1772. ;    lds    si,[bp+6]
  1773.     lds    si,[bp+8]
  1774.     mov    bp,[si]    ;dx gets the argument
  1775.     int    21h
  1776.     mov    ah,0       ;clear ah for al return code
  1777.     pop    ds
  1778.     pop    bp
  1779.     ret
  1780. arg1t    endp
  1781.  
  1782.  
  1783.  
  1784.  
  1785.  
  1786.  
  1787. ;--------------------------------
  1788. ; Process an fcb address in a
  1789. ; function call with a return code
  1790.  
  1791. arg1f    proc    near
  1792.     push    bp
  1793.     mov    bp,sp
  1794.     push    ds
  1795. ;    lds    dx,[bp+6]      ;dx gets the argument
  1796.     lds    dx,[bp+8]      ;dx gets the argument
  1797.     int    21h
  1798.     mov    ah,0           ;clear ah for al return code
  1799.     pop    ds
  1800.     pop    bp
  1801.     ret
  1802. arg1f    endp
  1803.  
  1804.  
  1805.  
  1806.  
  1807.  
  1808. ;--------------------------------
  1809. ; Process a single string argument in a
  1810. ; function call with a return code
  1811.  
  1812. arg1a    proc    near
  1813.     push    bp
  1814.     mov    bp,sp
  1815.     push    ds
  1816. ;    lds    dx,[bp+6]     ;ptr to parameter string
  1817.     lds    dx,[bp+8]     ;ptr to parameter string
  1818.     int    21h
  1819.     mov    ah,0          ;clear ah for al return code
  1820.     pop    ds
  1821.     pop    bp
  1822.     ret
  1823. arg1a    endp
  1824.  
  1825.  
  1826.  
  1827.  
  1828.  
  1829.  
  1830. ;----------------------------
  1831. ; Perform a single integer argument
  1832. ; but without a return code
  1833.  
  1834. arg1wor proc    near
  1835.     push    bp
  1836.     mov    bp,sp
  1837.     push    ds
  1838. ;    lds    si,[bp+6]
  1839.     lds    si,[bp+8]
  1840.     mov    dx,[si]       ;dx gets the arg (or ptr)
  1841.     int    21h
  1842.     pop    ds
  1843.     pop    bp
  1844.     ret
  1845. arg1wor endp
  1846.  
  1847.  
  1848.  
  1849.  
  1850.  
  1851.  
  1852. ;----------------------------
  1853. ; Perform a single string argument
  1854. ; but without a return code
  1855.  
  1856. arg1awor proc    near
  1857.     push    bp
  1858.     mov    bp,sp
  1859.     push    ds
  1860. ;    lds    dx,[bp+6]
  1861.     lds    dx,[bp+8]
  1862.     inc    dx          ;add 1 to get the start of the string
  1863.     int    21h
  1864.     pop    ds
  1865.     pop    bp
  1866.     ret
  1867. arg1awor endp
  1868.  
  1869.  
  1870.  
  1871.  
  1872.  
  1873.  
  1874. ;----------------------------
  1875. ; Handle a request$ and reply$ function
  1876. ; with error code
  1877.  
  1878. req_rep proc    near
  1879.     push    bp
  1880.     mov    bp,sp
  1881.     push    ds
  1882.     push    es
  1883. ;    lds    si,[bp+10]       ;ptr to req. string
  1884.     lds    si,[bp+12]       ;ptr to req. string
  1885.     inc    si            ;add 1 to get the address of the string
  1886. ;    les    di,[bp+6]       ;ptr to var desc block for reply buf
  1887.     les    di,[bp+8]       ;ptr to var desc block for reply buf
  1888.     inc    di            ;add 1 to get the address of the string
  1889.     pushf                  ;save the direction flag
  1890.     int    21h
  1891.     popf
  1892.     mov    ah,0
  1893.     pop    es
  1894.     pop    ds
  1895.     pop    bp
  1896.     ret
  1897. req_rep endp
  1898.  
  1899.  
  1900.  
  1901. cseg    ends
  1902.     end
  1903.